HelloWorld <- function(name){
  sprintf("Hello world form %s ", name)
}

SendHello = function(name){
  sprintf("Send hello to %s ", name)
}